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JP If you have something to seli please give detaiis and your ad 
* = m 
š. = 





¥ 
will be carried. Due to the tiny circulation at present, no 
b ` charge will be made, and probably never fon ae members 
| : If you want to do a full page ad, please submit it on the 
A paper size that this newsletter is printed on (9. = ር 11.2.2 
n Please do the photocopying yourself and send me enough copies 
1 for the next issue. (Phone for an estimate). However you may 
wish to sell your product by writing an srtjebe about it, in 
which case it should be submitted in the normal way. You can 
also lend your wares to someone else, for the purpose of 


writing a review. 


Inclusion of an article for sale in these pages does not 

mean endorsement by the Group, and all transactions to be 
conducted directly between vendor and purchaser texcept where 
outsiders offer club discounts in which case special arrange— 


ments will be made). 





1 This section is for small items discovered that can be useful 
q in program writing and use. I will start the ball rolling this 
: time with some of my own. Flease send your own bits anc pieces 
] far this page. 
*Many of your programs will display some text, and wait for 
I the spacebar to he pressed before moving on. Instead of the 
typing: 100 B=GETC:IF Gc >=2 GOTO 100 just use CALLM #DSDA 
which has the same effect. 

*If you want to disable the whole keyboard during a BASIC 
program, including the BREAK key, just POKE #5F, #64. The 
keyboard will re-enable at the program end, or when you 
FOKE #5F, #04., 

#& common feature of programs is to test GETC for a particular 
key but to disregard whether it is upper or lower case. Rather 
than G=GETC:IF G=#41 OR G=#61 GOTO ... to test for the "oi 
key, just use B=GETC:IF G IOR #20=8#461 GOTO ... The IDR converts 
the value to lower case if it is upper. (i.e. sets Bit Sj. 

*For a neater printed menu etc, blank out the screen i. ith 


en 
COLORT 8 8 8 8 before your printing lines, then reset the 
colours i.e. COLORT B O B G after the printing, for an 
apparently instantanecus image. 








3 “You will know that PORE 475,32 blanks out the cursor by 

E | making it a SPACE character. However this is not always 
satisfactory as if the cursor slides over screen ares that 
already contains characters, it can be seen momentarily 
blanking out the characters. To avoid this, ignore the number 
in #75 and POKE 874,0. Your 3rd and 4th COLORT must be the 
same as the first two. i.e. COLORT 8 5 8 2. The cursor will 

3 -then truly disappear. To see the difference try sliding the 

4 cursor over a line in the editor in each mode. 
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100 REM 888 GROETEN UIT HAWAI ALOHA DE Xxxxxxxi 
110 REM #4% GESCHREVEN DOOR : DE BONT CORNEEL 88 
120 REM 3353፤3፤334333፪3838#3፪34፪፳ DOSTEINDE 10 kikit 
130 REM ##333444#443434343434 2228 BAARLE-HERTOG II 
140 REM #43443፤53#3#33#83#፲3##፳434፪ 28 - 1 — 1985 xxxi 
150 REM (IILI RRR CesT Te eT ee te 
140 GOTO 1000 

200 REM 888 HELE OF HALVE CIRKEL 
210 FOR Z=Di TO D2:5=S50R(D2%D2-Z%1) 
220 DRAW XC-8,YC«Z XC+5,YC+Z 22:NEXT:RETURN 
300 REM xxx GOLVEN 

310 NG=INT(5.0%RND(1.0))+1.0 

320 FOR X-0.0 TO NG:DOT XB,YG-1 22:XG=XG+1.0 
330 DOT XG,YG+0 22: XG=X6+1.0:DOT X6, YG+1 22:XG-XG*1.0 

340 DOT X6, Y6+0 22: XG=X6+1.0:NEXT:RETURN 

400 REM tit PALMBODM 

410 ፻1=8,0፣፻08 Y=YP TO YP+40.0:DRAW XP,Y XP+DI,Y 21 

420 DI=DI-0.2:XP=XF+0, 1:NEXT: ST-PI/50.0 

430 FOR X=0.0 TO 2.0%PI STEP PI/6.0 f 
440 — CO=COS(X):SI=SIN(X):DRAW XP,Y XP+208C0, Y+20451 21 

450  CO=COS(X+57):SI=SIN(X+8T) 

460 DRAW XF+3.043CD,Y+3.04SI XP+173C0,Y+17%51 21 

470 — CO=COS(X+ST+57) :SI=SIN(X+5T+ST) 

480 DRAW XP+6.0%CO,V+6.0%5I XP+141CD0, ¥+14451 21 

490 NEXT:RETURN 

1000 REM tk INLEZEN NOTENARRAY 

1010 CLEAR 3000:DIM F(&0.0) 

1020 MODE O:PRINT CHR$(12):POKE #75, 52:RESTORE: SOUND OFF 
1030 ENVELOPE 0 15 

1040 ENVELOPE 1 12, 5፤1, 10:0 

1050 SOUND OFF :NOISE OFF :PRINT CHR$(12);:COLORT 9 14 9 9 
1060 COLORG 12 5 14 9:MODE 6A:POKE #FFOS, 2 

1070 POKE #7556, 222:POKE 87480, 211 

1080 POKE #744A,213:POKE #73C4, 220 

1090 FOR I=141.0 TO 211.0:J=#BFEF-1%90.0-2.0:POKE J,119 
1100 POKE J-1,143:POKE J-86, 255:POKE J-B7,255:NEXT 

1110 FILL 0,0 335,70 23:1-0.0 

1120 CURSOR 11,3:PRINT "GROETEN UIT DE STILLE ZUIDZEE." 
1130  XG=INT (500, OERND (1.0) ) 2 YB- INT (50, 0#RND (1.0) ) +2.0 

1140 GOSUB 300:6=GETC: IF 6430.0 THEN 1160 

1150 I=I+1.0:IF 1<50.0 THEN 1130 

1160 CURSOR 16, 2:PRINT "GROETEN VANUIT HAWAI" 

1170 Di=25.0:D2=50.0:XC=167.0:YC=35.0:G0SUB 200 

1180 D1=30.0:D2=50. 05 XC=100. 0: YC230.0: GÜSUB 200 

1190 ፻1=30, 0: D2=50. 0: XC=200.0:YC=25.0:GOSUB 200 

1200 Di=40.0:D2=S0. 0: XC=240. 0: YC=20.0: GOSUB 200 

1210 Di=-10.0:D2=10. 0: ፪ር=50, 0: YC=150.0: GOSUB 200 

1220 FOR X-0.0 TO 2.0XPI STEP PI/5.0:S=SIN(X):C=COSiX) 
1230 DRAW SO+124C,150+1245 50+25%C,150+2545 22 

1240 NEXT 

1250 XP=200.0: YP=70.0: GOSUB 400 

1260 XP=i64.0: YP-85.0: GOSUB 400 

1270 XP=94.0:YP=75.0:GOSUB 400 

1289 CURSOR 14,1:PRINT "OF ZOALS MEN DAAR ZEGT :" 

1290 CURSOR 21,0:PRINT CHR$ (34) ; "ALOHA OE";CHR& (34) ፤ 

1500 SOUND OFF :NOISE OFF :POKE #FFOS, 255 

1500 REM trL MUZIEK 

1510 RESTORE:FOR I-0.0 TO 57.0:READ FAI): NEXT: TE=7.0 

1520 FOR I=1.0 TO 84.0:READ T,W:S=F(T) 

1550 SOUND 0 0 15 0 FREQ(SX4.0):SOUND 1 0 15 0 FREQ(S) 
1540 SOUND 2 1 15 0 FREO(S#2.0):WAIT TIME TEXW:NEXT 

1550 SOUND OFF 

1560 FOR I-0.0 TO 3.0:CURSOR 0, I: PRINT 8ኮር(58) ; : NEXT 

1570 POKE #FFOS, 2:CURSOR 27,0:PRINT "EINDE"; :CURSOR 27,1 
1580 PRINT "ALOHA":CURSOR 25,2:PRINT "TOT ZIENS" 

1590 POKE #75,95:POKE #FF05,255:CURSOR 0.3 
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j 2000 REM XXX NOTEN VAN 4 DETAVEN E (57) 
2010 DATA 20000, 20000 
2020 DATA 065,049,073, 078, 082, 000, 087 
2030 DATA 092,098, 104, 110, 116, 123, 000 
1 2040 DATA 131,138,147,155,165,000, 175 
= 2050 DATA 185, 196, 208, 220, 253, 247, 000 
165 2060 DATA 262, 277, 294, 311, 550, 000, 349 
| 2070 DATA 370,292,415, 440, 466, 494, 000 
: 2080 DATA 523,554,587,422,659, 000, 698 
1 2090 DATA 740, 784, 851, 880, 932, 998, 000 
2100 REM 88 F,T (5 % PER REGEL) 
2110 DATA 24,2,30,2,34,2,34,4,32,2 
2120 DATA 30,3,28,1,30,2,26,2,24,8 
2130 DATA 24,4,00,2,34,2,34,2,32,2 
2140 DATA 32,4,31,2,32,2,30,2,36,3 
B 2150 DATA 34,1,32,8,32,4,00,2,24,2 
E 2160 DATA 520, 2, 54, 2, 2 




















2,34,4,32,2,30,3 
E 2170 DATA 28,1,30,2,26,2,24,8,24,4 
E 2180 DATA 00,2,30,2,28,2,26,4,32,2 
E 2190 DATA 30,2,28,4,34,2,32,2,30,8 
E 2200 DATA 30,6,00,2,24,2,26,4,30,4 
|! 2210 DATA 36,6,26,2,24,4,30,4,34,6 
E 2220 DATA 00,2,30,2,28,3,26,1,28,2 
ክሽ 2230 DATA 30, 2, 32, 2, 32, 2, 36, 4, 34, 8 
i 2240 DATA 30,6,00,2,24,2,26,4,30,4 
E 2250 DATA 25,5,26,2,24,4,30,4,34,6 
2260 DATA 00,2,30,2,28,6,30,2,34,2 

2270 DATA 32,4,28,2,30,8,30,4,00,2 


2280 REM ~-------- EINDE -—----—--— 
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X ü PL A NEW ASSEMBLER FOR THE DAT FO x 
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As announced in DAInanmiw 13, workgroup SPHYNX (located in the Netherlands) 
has designed an assembler with many special features, SEL was created 
exclusive for the DAI pe with the intention to allow easy assembly of large 
machine language programs. 








1) FEATURE LIST 








lal) ee USAGE 











ünlike- DNA Anz SPL is a lot more ecc with memory. This La 
complished by using a single buffer ር ረ and a special format for 
source code store. 

3099 instructions are stored as single bytes codes. Symbols are kept 
in a symboltable and im the sourceline only references into the 
symboltable are included (this ie the same method as used by DAI 
basic). The only thing which takes as many bytes as characters shown 
on a listing are comments, 

As illustration the whole source for SEL “which ge 
code) can be loaded, editted and assembled with SF 















nerate 12 kbyte 






1.2) CONDITIONE 





dus RO ASSE kin ER 








48 a A ione. macro assembler", 

Conditional assembly means that some parts of the source code are 

ignored during assembly, Control of this is done by using 

IF ELSE ENDIF constructs (which may be nested). As condition any 

comparation may be used, Purpose of conditional assembly is to 

generate more than 1 program version with the same source (ec make a 

game with keyboard or paddle input, or include mualti-language menus 

in the source and sele i language at assembly time). 

Macro assembly can be used to declare a sequence of mip instructions 

which perform a given function, only l time in the source. Each 
ation where the function is needed in a program, only a macro 

request ie included and GPL will insert the sequence of instructions 

E Se An example could be the macro PSHALL, which 
references the sequence PUSH FSW, PUSH B, PUSH D, PUSH ||, 

























1.5) ken, ED kad ERNDEER 
Full-scale o and source handler, with following commands ፪ 
" sauce code list from whole or part of the source, where selection 
can be done using linenumbers or/and Labels 
“ full«screen editing (DAL editmode), selection idem as for list koun 
exit of editmode a check is performed to catch typing and syntax 
ዮሦ፦ርሆ I 
MOVE, COPY and KILL commands for sourcel ines 
~ replacing a symbol with a new symbolname 
= find in which lines a label or a symbol is used 
- READ, WRITE and MERGE commande 
7 Configure memar yemap (dimension and location of sournce-buffer) 
7 display memory-map to verify spare area source-buffer 
wen inline call from all der commands 
ka configure hardcopy output (lines/pages) and send control characters 
to a hardcopy device 








~ 
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1.4) OER SONNENDS 
ey men Eo 14088 following commands s 
w Object list (hex + source). with LOT UNL control 
a poke object code (offset possible 
— generate an error list (eg naot-defined svmbols) 
a symbol table List 
- and other commands ta help program design and test 
Due to the way SÈL stores his source, à emblw runs very fa 











1.5) SPL RN 

SPL uses the normal INTEL B682 mnemonics for opcodes and 
Sae Br stupne 

~ SPL implements a large subset of the MACRO-G6 Mikrosoft) or 
ISIS-II 8488 MACRO-ASSE (Intel) features 

- Operators for operands subtract, dived, multiply, modulo, 
shirt, and, orm, xor 

- operators for conditions 8 €, By Sa Z5, ዕዮ, and 

Ge all operators are single characters (eg ጆ " ቹን 

w symbole may be 6 characters long and lower-case characters must be 
used for naming macmos 






S) REBUTREMENTS 





2፡4) ERDE ane ROM 
SEL as Po will only run in DAT systems with 48k KAM, 
Generic code of SPL star at hex address BADD and ende nearly at 
begin of screenram. When using SFL switching to a araphic mode is 
not possible, as it would destroy the SFL cade. 
A version far RAM will only be supplied if sufficient requests 
LAB 


SFL was tested with ROM VI. and Vl.. 























ew PET 
SPL = kè ted with. DER software DTOGI.2. 
Due to location of SEL no memory overwrite problem should exist for 
using a floppy system which uses lower part of RAM to store the 
disk-operating system. However as no high-quality floppy aye ten 
ig available until now, Dai nanl C had not tested SPL-floppy interface. 
As delivered SEL, will use the Rf 2 output to drive a printer, but SF 
can be configured to drive a parallel printer interface (interface 
description in the manuali), 














5) EVALUAT Ion 


anr ny mmm vaas ovu ann sanse pon 


3.1) BY Baca MEHRERE 
in vus ask 2 onen SEL was distributed ta a select geep of 
members, this to perform a pre-release test and evaluation. 
Reactions were channeled to the designers and updates were made to 
code or/and manual. 
In general the results of the evaluation were very good and we think 
SEL will became an important enhancement for machine language 
programming an the DAL pc. 
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COMPARE WITH MACRO- 





For those members who know the MACKO-8a assembler, an (incomplete) 
list of MOS features not implemented in SEL s 

~ ASEG, CSEG, DSEG location counters 

7 EXTRN, PUBLIC, COMMON, NAME , a REQUEST í GFL doesn't generate 
linkable object modules 

- IFDEF, IFR special conditional tests 

= TRE, TREC repetition controls (normal REPT is implemented in SPL 
with ##ዥ pseudo) 

- LOCAL labels in macros (SPL uses a kind of SET pseudo to avoid 
multi defined errors, however this seams not to have some 
restrictions) 

= parameters for macros cannot be register names 

NOTE s ክልርጸበ፦8ቓ is an extremely powerfull assembler which requires a 
floppy-system (eg CEZM) and which is sold for about 19.0949 Dire, 

Also MAaCROÜ-GS does only the assembly job.  Sourcecode editting and 
objectcode linking must be done with other pracgrams. 

Most of the above mentioned differnrenc can be overcome by using some 
other instructions, Problem of module linking is not so important, 
because most applications will fit in 1 SÈL source file (sem 1.1). 

















MES 








43) SOME POINTS ABOUT USE 


Numeric constants must always be entered with a B, D or H appended, 

no default ise provided. In a list appearing of these constants 

in decimal or hexadecimal format must be controlled by using PUT 
directives. 

Due to single character commands (the whole alfabet including some 
lower case characters) some skill is needed to use them without 
looking back at the manual, 

Same thing applies for single character operands and meaning of single 
or double charauter error reports. 














) CONCLUSIONS 
SPL is a good compromise between a professional full-line assembler 
and a system environment as the DAL pc. 
SÈL don't require floppy's to retrieve records of source but allows 
that the source is stored in ram in a compacted Format. 
Used solutions to minimalise SFL generic code (such as single 
character commands and operators) are easy to live with. 


FACHAGE 


SPL is delivered with a dutch and english manual. 
Included on tape are following source-programs s 
= IMPLEM : to patch SPL (eg parallel printer, screen colors, 
lines/page) 
= RESTORE X XXX 8 example SPL source 
“ DISEL 8 a very powerfull 8488 disassembler which direc 
GPL. source 
Planned to be included : 
“ CONVERT # convert DNA source to SPL format 
It is also planned to make the SPL source listing available on VOL t, 
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Geachte heren, 


Met belangstelling heb ik het artikel FGT-DISK-PEEK-POKE 
in nummer dertien gelezen.De methode die de heer Gesp ge- 
bruikt vind ik nogal omslachtig en maakt geen gebruik van de 
mogelijkheden die het DOS ons bieden. 

Wanneer we het F6T programma deel laten uitmaken van het 
DOS zal dit bij het inschakelen samen met het DOS ingeladen 
worden en zal er blijven zitten zolang we willen.Dok brengt 
het splitsen van het programma voordelen met zich mee.Het is 
immers enkel de tabel die veranderd als we een ander letter- 
type willen.Wanneer we van de tabellen D-files maken kan een 
programma over meer dan een lettertype beschikken. 

Voor we zover zijn moeten we echter een beetje goochelen 
maar er zijn geen trucjes mee gemoeid. 

Het nieuwe DOS bestaat uit : 

1. Het originele DOS Van @2E3 tot 19CB 

2. Het FGT programma Van 19D@ tot 1005 

3. De F6T tabel Van 1ር19 tot TBLEND 

4. Vrije ruimte Van TBLEND tot 27E0 


TBLEND is het einde van een FGT tabel. 

De vrije ruimte is nodig om ook de langste tabel in het DOS 
te laten passen.TBLEND van de langste tabel is dus 27E®. 
Wanneer het nieuwe DOS geladen is zal de HEAP op 2751 be- 
ginnen.Er is dus nag plaats voor een fors programma. 

Op de systeem schijf staat buiten het DOS ook de verschil- 
lende tabellen zodat ze beschikbaar zijn voor de programmas 
die er gebruik van gaan maken. 


Hoe gaan we nu te werk ? 

Na HARD=RESET laden we de FGT met de langste tabel en gaan 
met UT kijken waar deze eindigd.Daarna laden we de FGT met 
standaard tabel en gaan nu het geheel van DOS en F6T op een 
systeem-schijf zetten waarvan $MSTRDOS is ge-deleted. 

Tik in : DSAVE $MSTRDDS:0 2E3 27E6 13EC [RET] 

en onze nieuwe DOS is klaar.Het adres 27E9 kan in uw geval 
anders zijn,het hangt van de lengte van de door u als lang- 
ste tabel beschouwde tabel af en van de locatie van uw FGT. 
We laden nu achtereenvolgens de programmas met de verschil- 
lende tabellen en DSAVEn enkel de tabellen op de schijf met 
een passelijke naam. 


Hoe laad een programma zijn tabel ? 

We gebruiken hiervoor het commando DLOAD maar plaatsen het 
tussen de gebruikelijke poke’s.Voorbeeld : 

109  POKE#131,3:PRINT "DLOAD MATH: O":POKE#131,1 

Deze programma regel hoeft slechts eenmaal uitgevoerd en kan 
desgewenst in een zelfde programma herhaald worden om over 
een ander lettertype te kunnen beschikken.Het ganse program- 
hoeft niet langer in een array geladen te worden en op z’n 
plaats gePOKEd te woden :tijdwinst en plaatswinst. 


Om het geheel te proberen stel ik voor dat u nu een beetje 
speelt met de demo-programmas die aangepast zijn en eveneens 
op deze schijf staan. 


Met de meeste hoogachting, 
Couwberghs Frans 
Boekdonkstraat 13 
3980 Tessenderlo 
013/666340 
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PURPOSE ee N ፓፓ ን. . 


Comment s. M m me ma 





APRES 8 MOIS DE TRAVAIL SUR DISK ET PLUS SPECIALEMENT 
EN TRAVAILLANT SUR DES FICHIERS, JE VOUS LIVRE MES CONCLUSIONS. 
UNE DISQUETTE DOIT ETRE STOCKEE A L"ARRI DE LA POUSSIERE, 
DANS UNE BOITE FERMEE,PAS A PROXIMITE D"UN CHAMP MAGNETIQUE 
CENREGISTREUR,HAUT PARLEUR,ARRIERE DE L’ORDINATEUR,SUR 
L’UNITE DE DISK CAR UN TRANSFO SE TROUVE A DROITE). J'AI 
PERSONNELLEMENT PERDU 1 DISGUETTE EN LA DEPOSANT SUR LE DISK DRIVE 
A L’ARRIERE DROIT GU SE TROUVE LE TRANSFORMATEUR. 
QUAND LE DISK EST FROID, IL PEUT PROVOQUER DES RATES 
DE LECTURE „LES RATES SONT PLUS FREQUENTS DANS LES LECTURES 
DE FICHIERS QUE DANS LES LECTURES DE PROGRAMMES. 
POUR EVITER LES ENNHIS,IL VAUT MIEUX CHAUFFER LES AIGUILLES EN 
EFFECTUANT UN VERIFY SUR LE DISK O ET DISK 1 AVANT DE TRAVAILLER. 
L’ADRESSE #9B7 SIGNALE SI UNE ERREUR A ETE COMMISE SUR 
LE DISK DRIVE.MAIS AVANT TOUTE INSTRUCTION, ON DOIT METTRE 
LE BYTE #9B7 A O;LE DOS NE LE FAIT PAS LUI-MEME. 
LE NOH DES FICHIERS HE PEUT CONTENIR DE BLANCS, 
CAR LE DOS ARRETE SA LECTURE DES LE PREMIER ESPACE ET 
IGNORE LES RENSEIGNEMENTS SUIVANTS (SAUF POUR LES INSTRUCTIONS 
SAVE ,SAVEA,LGAD,LOADA,QUI NE FONT PAS PARTIE DU DOS). 
LE DOS EMPLOIE UNE TECHNIQUE QUI PEUT INTERESSER 
LES PERSONNES N’AYANT PAS DE DISK DRIVEL’ APPEL D'UN | 
ASSEMBLEUR AVEC UNE INSTRUCTION zl" APPEL SE FAISANT EN 
DONNONT LE NOM DE L'INSTRUCTION AU CLAVIER OU PAR PROGRAMME 
PAR 10 PONE #131,3=2PRINT "INSTRUCTION"SPOKE #IZ1,1 
POUR CELA IL FAUT CHONGER LE VECTEUR KEYBOARD PAR 
ES 28 GE PAR CE JA OA 
L" INITIALISATION DANS LE DOS SE FAIT PAR LA ROUTINE Z3EC 
ረ” ADRESSE DE LA TABLE SE MET A 297 (UOIR 13FC) 
Z3FC LXI HERIEET > 
SHLD (#297) 


OAFA PUSH H 

OAIB LAI KCCASZ) 

DAJE XTHL 

0650 PERL 

CETTE ROUTINE SERT A EXECUTER #ASI SI LE MOT ENCODE NE SE TROUVE 
PAS DANS LA TABLE DE ROH. 

LA ROUTINE #ASI SERT A CONSULTER LA TABLE DU DOS. 

LE VECTEUR 20D (CHARACTER OUT) EST ARME ET CONTIENT C3 CF OA. 

SI ON LE COUPE,L”EXECUTION D'UNE INSTRUCTION DU DOS PAR PROGRAMME 
EST IGNOREE.(JE CROIS AW" IL Y AURAIT INTERET A BIEN COMPRENDRE 
LES ROUTINES A4A-ADA ET 1746-1834 POUR PERMETTRE AUX UTILISATEURS 
SANS DISK D'AVOIR LA FACULTE D'APPEL D'UNE INSTRUCTION PAR CETTE 
TECHNIGUE. 
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POUR LA PARTIE PROGRAMMATION,LES VECTEURS 2C5 A 2EO 
SONT CHANGES 
205 JUMP 6A? 
208 JUMP oD? 
B CB JUMP 751 
W ፓርደ JUMP 865 
| 2DI JUMP 879 
2D4 JUMP 963 
CETTE TABLE SE TROUVE EN C6E-C7D ET SE TRANFERE PAR TRANFERT BLOCK 
DE LA ROH PAR 328 JUMP (DE4F) (REF DAINAMIC 32/15) 
LES VECTEURS CASSETTE SWITCH SONT RAPPELLES EN 32D-33C 

L" INSTRUCTION CREATE GUI N°A PAS ETE BIEN EXPLIGUEE 
EST LIBELLEE COMME SUIT = 
CREATE FILEMANE.STR:O 7 OU CREATE FILENAME.STR:O D (D=VARIABLE) 
OU POKE H131,3:PRINT “CREATE “ፉጀዩሖ” "+D AVEC DE="FILENAME.STR=O” 
CECI EXECUTE L’OUVERTURE D’UN FICHIER STR DE NOM FILENAME ET DE 
7 SECTEURS DE LONGUEUR. 

POUR SAUVER UN FICHIER,PLUSIEURS ENNUIS PEUVENT SURVENIR. 
-LE FICHIER EST RATE A L'ECRITURE PARFOIS PAR UNE TETE DE LECTURE TROP 
FROIDE OU TROP CHAUDE OU UNE CAUSE INDETERMINEE (TRAVAIL INTENSE ET 
RAPIDE MAIS RARE: JE SUIS PARVENU A TROP CHAUFFER LA TETE PAR UN 
PROGRAMME DE TRANSFERT RAPIDE D'UN DISK VERS L"AUTRE EN PASSANT PAR 
LE DIRECTORY DU DISK 1 ET AVEC UNE LONGUEUR DE FICHIER DE 7 SECTEUR: 
LA PREMIERE FOIS JE SUIS PARVENH A FAIRE PASSER 
80 SECTEURS PUIS UN ARRET ;JE L’AI RELANCE AUSSITOT,IL N ñ 
FAIT QUE 10 SECTEURS ET All TROISIEME ESSAI IL N’EN A MEME 
PAS FAIT UN).LE DIRECTGRY DANS CE CAS N'EST PAS TOUCHE. 
-LE FICHIER EST CREE MAIS IL Y A UN FICHIER VIDE DE LONGUEUR 
ያ AVEC LE NOM INSCRIT DANS LE DIRECTORY ET UN VERIFY EXACT. 
-LE FICHIER EST CREE ET LE NOMBRE DE SECTEURS EST EXACT MAIS 
LE FICHIER NE PEUT ETRE LU (PEUT ETRE CONTRE PAR UN VERIFY) 
-SI UN FICHIER A UNE LONGUEUR EGALE A UN MULTIPLE DE 128 BYTES, 
IL Y A DANGER DE BLOGUAGE.LE DOS OUVRE UN SECTEUR DE TROP OU IL 
SE TROUVE DES #55 „A LA LECTURE,CE SECTEUR EST LU COMME UN 
FICHIER ET IL APPARAIT DES "UlUUUU". 
MAIS PARFOIS LA LECTURE EST IMPOSSIBLESLE FICHIER EST PERDU. 
POUR RETABLIR LA LECTURE,IL FAUT REMPLIR CE SECTEUR DE CODES OO 
(UOIR PLUS LOIN POUR LA TECHNIGUE) 
POUR S’ASSURER QU'UN FICHIER A ETE BIEN ENREGISTRE,LE 
MEILLEUR MOYEN QUE JE UOIS EST DE CREER UN AUTRE FICHIER, 
; DE FAIRE LOADA ET DE COMPARER LES DEUX FICHIERS. CETTE 
* TECHNIQUE NE PEUT ETRE FAITE GU'DUEC DE PETITS FICHIERS. 
፪ SI ON SAUGE UN FICHIER QUI EST DEJA SUR LA DISQUETTE ET 
QUE LE FICHIER QUE L’ON SAUVE EST PLUS GRAND QUE LE FICHIER SUR 
DISQUETTE,IL Y A APPARITION Dit FATIDIQUE “END OF FILE" QUI SIGNIFIE 
ICI FICHIER DETRUIT.POUR EUITER CECI,ON DOIT FAIRE UN “RENAME” DU 
FICHIER SUR DISQUE,PUIS "DELETE" ET ENFIN SAUVER LE NOUVEAU FICHIER. 
REMARQUEZLE NOM D'UN FICHIER DETRUIT PAR "DELETE" RESTE DANS LE 
#DKDIR ET EST RECONNU LORS D'UN SAVER. 

UN AUTRE PROBLEME,LES MESSAGES D'ERREUR NE BLOGUENT PAS 

LE PROGRAMME BASIC. AVEC LES, INSTRUCTIONS DE LA ROH,UN 
NUMBER OUT OF RANGE,... ETC ARRETE L'EXECUTION DU BASIC. ICI 
PAS, LE PROGRAMME PASSE A L" INSTRUCTION SUIVANTE. 

POUR LIRE OU ECRIRE UN SECTEUR,ON EXECHTE CE QUI SUIT 
SOIT EN UTILITY SOIT EN ASSEMBLEUR: 





M D 


=NUMERO DU DISK DRIVE #30 OU #31 ("O" OU "I" EN ASCII 
B=NUMERO DE PISTE #0 A #23 (35 DECIMAL? 
C-NUMERO DE SECTEUR #2 A #12 


HL=ADRESSE OU ON DESIRE PLACER LE SECTEUR (LE DOS LE PLACE EN 
#1945 (ref #D7O)POUR SON BACKUP OU COPY „LE NUMERO DU DISK DRIVE 
EN #19C5 (ref #D6D);MAIS L’ADRESSE POUR CETTE ROUTINE EST LAISSEE 
OU BON UOULOIR DU PROGRAMMEUR. 
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POUR LIRE UN SECTEUR,EXECUTER #RIC 
POUR ECRIRE UN SECTEUR EXECUTER #A32 
EN CAS D'ERREUR ON AURA BU RETOUR LE REGISTRE ይረ>ኃዕ 
UNE AUTRE ZONE MEMOIRE SE TROUVE EN #977- #9B9 AVEC 
EN 992-99C LE NOM EN 8 LETTRES D'UN FICHIER OU D'UN PROGRAMME 
SI - DE 8 LETTRES,LE DOS COMPLETE AVEC DES BLANCS (#20) 
SUIVIS DE BAS,BIN,STR,INT,FPTCCES NONS SE TROUVENT 
EN #FGI-#F76GF DANS LE DOS) 
EN 907 NUMERO DU DISK EN ASCII 
EN 908 TYPE UE FICHIER QUE L’ON A ፥ 
o BAS 
Z BIN 
2 FPT 
3 INT 
4 STR 
EN 9AF LONGUEUR REELLE DU NOM SANS LES ESPACES 
EN 9AC-9AD : COPIE DE 283-204 
EN 9BI NOMBRE DE BITS A CONSIDERER POUR ARRETER LA LECTURE/ECRITURE 
DES MOTS D’UN FICHIER (POUR UN FICHIER STR, #9BI=#FF; POUR UN 
FICHIER BAZ ,#OBI=KOF (JE N’AI PAS COMPRIS POURQUOT #0F)). 
EN SE? SI <> O ERREUR 
LA ROUTINE #ያ#ደፆ SERT A ALLER CHERCHER UN PROGRAMME SUR 
DISQUETTE ET A LE LANCER. 
COLLMS3OO,NE:OUEC NE=NOM DU PROGRAMME DEMANDE 
HL PGINTE VERS LE NOM DU PROGRAMME 
EN 300 JUMP (‹ያ#ደዖ› 
LA ROUTINE #5CE SERT A IMPRIMER LES MESSAGES D'ERREUR 
ELLE SE TROUUE A LA FIN DE TOUTES LES INSTRUCTIONS ET EST 
APPELEE PAR CNZ(CSCED 
LES ROUTINES DE DISCUSSION AVEC LE DISK DRIVE SONT 
BU NOMBRE DE 5. 
3&7 SE TROUVE EN PREMIER LIEU DANS LES INSTRUCTIONS 
PRORABLEMENT UNE ROUTINE D’INITIALISATION 
SBS ENVOI D'UN CARACTERE VERS LE DISK DRIVE 
JDG RECEPTION D’UN CARACTERE DU DISK DRIVE 
458 NON COMPRISE 
SAS NON COMPRISE 
PAR LA ROUTINE 3B3,LE DOS ENUOIE UN CODE CORRESPONDANT A CERTAINES 
INSTRUCTIONSZCELA SE FAIT PAR LA ROUTINE 402 AVEC UNE SEQUENCE 
DE CODES STOCKEE EN 980 981 982 uis d 
SA EXECUTE LE RESETD 
49 A zA=NUKERO DU DISK DRIVE: IDISK(LE IDISK PEUT AUSSI ETRE 
EXECUTE PAR 9C7 AVEC B-NUMERO DU DISK 
SE A B C :A=NUMERO DU DISK 
B C NOMBRE DE SECTEURS CREES 
CELA SEMBLE ETRE UNE SORTE DE CREATE 


53 LECTURE 

54 ECRITURE 

SF A SUIVI DE SOIT 49 SOIT 4F 

52 

43 

4B 

JE NE COMPRENDS PAS ENCORE BIEN CES DIFFERENTS CODES ET LEUR 
FONCTION, 


CONCERNANT LE PROBLEME DU FICHAGE, DEUX SOLUTIONS 
SE PRESENTENT: 

SI L'ON A UN FICHIER AVEC UN NOM ET DES VALEURS 
SATELLITES IMPORTANTES 
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EXEMPLE= 
BAPTISTE / alain/ 6 PLACE DE DINANT/ 1000/ BRUXELLES 
NOH *XxXxxxXxxxcXxUDOLJIEdR SATELLITE ER RG x RR 3 RR X 4 RR K 
ET QUE CES UBLEURS ET LE NOM FONT PLUS DE 612/107 =4-6 SECTEURS 
GN CREE UN FICHIER A$( 4) 
AVEC D$CODO-"BDOPTISTE" 
BECHI=STBRUXELLES” 
ET ON FAIT SAVEA D$ “BAPTISTE”. ATTENTION LE NOM <= 8 LETTRES 
SI PAR CONTRE,LA TAILLE Di! FICHIER EST <  6*128 BYTES ET SI GN A 
PLUS DE 107 NOMS,ON OUVRE UN FICHIER ARCIO,4) PAR EXEMPLE AVEC 141 NOMS 
ET ON SAUVE EN BLOCS DE PLUSIEURS NOMS. 
SI LON A QUE DES NOMS,ON OUVRE UN FICHIER A$(255) 
OU B$C10) ET ON SAUVE EN AYANT ደሀ SOIN DE NE SAUVER QUE LES 
MEMOIRES OCCHPEES.SI ON A A$(255) AVEC SEULEMENT 20 NOMS ON 
PERD (255-20) = 235 BYTES OU 2 SECTEURS GUI SONT POURTANT VIDES. 
(FAUTE VUE DANS LE WORD PROCESSOR) 
POUR EVITER CELA,ON PEUT SOIT CREER UN FICHIER DE LONGUEUR D$C19) 
ET TRANSFERER LES DONNEES DANS CE FICHIER SOIT CHANGER LES 
CORDCTERISTIGUES DU FICHIER PAR DES POKES SUR VARPTRCRÉCO)3-3 -2 ET -1 
ET LES REMETTRE EN PLACE APRES L'AVOIR SAUNE. 
SI UN FICHIER DOIT ETRE LU,CORRIGE PUIS ETRE REPLACE 
SUR LA MEME DISQUETTE, IL EST SAGE DE CALCULER Att MOMENT 
DE LA LECTURE LE NOMBRE DE SECTEURS QU" IL PREND SUR LA DISQUETTE 
POUR CELA ON FAIT = 
30000 LONG-2:FO0R I-O TO 255 
30010 IF B$«X12-"" THEN 30040 
30020 LONG-LONG*I*LENCOSCOIO) 
30030 NEXT I 
Bi 30040 SECTOR-OLONG* 15/128 
5 AVANT DE SAUVER,ON REFAIT LA MEME CHOSE AVEC LE FICHIER 
: D SAUVER. SI LONG = UN MULTIPLE EXACT DE 128,08 DOIT RAJOUTER 
UN NOM DE PASSE SOUS PEINE DE PERDRE LE FICHIER.PUIS ON CALCULE 
Hi LE NOMBRE DE SECTEUR Dit NOUVEAU FICHIER A SDUUER.SI CE NOMBRE 
d EST <= A L”ANCIEN,PAS DE PROBLEME.PAR CONTRE S" IL 
* EST SUPERIEUR ON “RENAME” LANCIEN PUIS "DELETE" ET ENFIN 
ki ON SAUVE LE NOUVEAU SUR DISQUETTE.CE FICHIER SE HETTRA A LA 
FIN DE LA DISGUETTE.POUR RECUPERER LA PLACE PERDUE ON EXECUTERA UH 
COMPACT A LA FIN DU TRAVAIL. 
š EN CONCLUSION,LE DISK A DES AVANTAGES ET DES 
H INCONVENIENTS PAR RAPPORT AUX AUTRES DOS DES MARQUES CONCURRENTES. 
: AVANTAGES 
GN N'A PAS BESOIN DE DONNER UNE LONGUEUR FIXE PAR DONNEE, . 
CE GUI FAIT QU'ON NE PERD PAS DE PLACE SUR LA DISQUETTE. 
CECI EST UN GROS AVANTAGE QUI DOIT Ati MOINS FAIRE GAGNER 
d UNE QUARANTAINE DE K PAR DISQUETTE (JE DIS BIEN 40000 BYTES 
š SUR LES 78000 QUE PEUT CONTENIR UNE DISQUETTE 1). 
INCONVENIENTS 
A LE DIRECTORY EST LIMITE A 107 NOMS. 
LE SAVEA/LOQADA TRANSFERE LE FICHIER DANS LE BUFFER APRES LE 
PROGRAMME AVANT DE LE SAUVER/LIRE,CE QUI ENTRAINE UNE PERTE 
DE PLACE ET DE TEMPS.CECI EFAIT INDISPENSABLE POUR LA CASSETTE, 
| CAR ፈደ FLOT DE DOHNEES DOIT ETRE REGHLIER,HATS ICI LE PROCESSEUR 
i DU DISK EST ESCLAVE ET PEUT ETRE LEGEREHENT FREINE. 
' MAIS BU TOTAL L’INSTRUCTION SERAIT PLUS RAPIDE. 
POUR L”INSTANT UN FICHIER DE e SECTEURS NECESSITE 10 SECONDES, 
CE QUI EST BEAUCOUP TROP LENT «(J'AI CREE UNE ROUTINE EN ASSEMBLEUR 
QUI NE NECESSITE QUE 4" ET IL Y A MOYEN DE FAIRE BEAUCOUP MIEUX). 
LA DISKETTE QUAND ELLE TRAVAILLE,BLOGUE L’UNITE CENTRALE 
2 CONTRAIREMENT A CE GUE RENSEIGNE DAI DANS SA PUBLICITE. 
š LA DISQUETTE POURRAIT EFFECTIVEMENT LE FAIRE MAIS LE DOS N'A PAS 
Ñ ETE PREGU POUR CELA. 








REN Rd Be RO መክ 
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CHER MR HERHANS 


JE VOUS ENUOIE ENCORE QUELQUES TRUCS CONCERNANT 
PARTICULIEREMENT LES DISK 1/0. 

LE DSAVE OU LE SAUVETAGE DES PROGRAMMES BINAIRES 
EST LIBELLE COMME SUIT:EXEMPLE DSAVE ESSDI.BIN:O 2000 ZEFF 2345 
2000 DEBUT DU PROGRAMME. 
ZEFF FIN DU PROGRAHME. | 
2345 POINT D ENTREE DE LA ROUTINE D INITIALISATION. 
IL EST PREFERABLE DE TOUJOURS INDIQUER FILENAME.BAS=I, CE QU 
INDIQUE QUEL FICHIER VOUS SRUVEZ (BAS ,BIN,STR,FPT,INT) ET DE 
PREFERENCE LE NUMERO DU DISK CBR IL PEUT Y AVOIR DES PROBLEMES. 
SI L ON SAUVE UN FICHIER BINAIRE SOUS LE NOM $USER SUR UNE 
DISQUETTE CONTENANT UN DOS, A L” INITIALISATION, LE COMPUTER LIRA 
LE $USER.BIN ET EXECUTERA LA ROUTINE D INITIALISATION:DANS CETTE 
ROUTINE ON CHANGERA LE 29B-29C.LE CHANGEMENT DES AUTRES POINTEURS 
SE FERA PAR LA ROUTINE D INITIALISATION DU DOS ET NE DOIT 
DONC PAS ETRE CHANGEE ICI.ON VEILLERA A TOUJOURS AVOIR 
LE BOOTSTRAP ET LE MSTRDOS AVEC LE MEME NOMBRE DE SECTEURS QUE 
SUR LA DISQUETTE NORMALE.CPAS DE SECTEUR VIDE) 
EN METTANT UN $#USER.RIN ET UN #USER.RAS EN MEME TANT QUE 
LE DOS ON PEUT A L INITIALISATION CHARGER UN BINAIRE, METTRE 
LEZ POINTEURS EN PLACE SANS MANIPULATION, ENSUITE L’ORDINATEUR 
IRA CHERCHER LE BASIC ET LE LANCERA.CELUI-CI A SON TOUR 
POURRA ALLER CHERCHER DES FICHIERS FPT,INT OU STR. 

LE NOM D"UN FICHIER NE DOIT PAS NECESSBIREMENT AVOIR 
€ BYTES DE LONGUEURS . ON PEUT L'APPELER PAR EXEMPLE:LODD “TAR.BAS: z” 
GUI VEUT DIRE PROGRAMME BASIC “TAR” SUR LE DISK 1. 

L APPEL CALLM #300 ጽደ FNCTIONNE GU'UNE FOIS.SI ON REFAIT 
UN AUTRE APPEL,IL Y A UN PLANTAGE MONUMENTAL. 

IL EST TRES FACILE D'AJOUTER DES INSTRUCTIONS A DOS: 
EXEMPLE: 
CHANGER LE POINTEUR 0297-0298 PAR 00-20 (#2000) PUIS ENTRER LE PETIT PROGRAMME 
SUIVANT 
2000 03 41 41 41 77 04 00 37 18 
PUIS REVENER EN BASIC ET TAPER BU CLAVIER ABA PUIS RETURN 
LE RESETD S"EXECUTE. 
ON PEUT AUSSI L'APPELER PAR PROGRAMME: 
ZO POKE #131,3=2FRINT "ARA":POKE #131,1 
EXPLICATION: LA TABLE DU DOS EST DEVIEE VERS 2000 e 
3=LA LONGUEUR DU NOM DE L" INSTRUCTION. 
$i 41 42 CODE # DE A 
77 O4 -O477 ADRESSE DE L" INSTRUCTION RESETD 
00 ARRET DE CETTE TABLE 
37 18 ADRESSE DE LA TABLE DU DOS(#1837) 

LE BACKUP ET LE COMPACT EXECUTENT LE IDISK AVANT D EFFECTUER LE RECOPI 
GE. 

LE COPY D'UN FICHIER OU D'UN PROGRAMME AJOUTE 
UN SECTEUR UIDE A LA FIN.POUR L EUITER ON FDIT UN 
CREATE AVANT LE COPY 
EXEMPLE 
FILENBME.BAS:0 A RECOPIER SUR DISK 1.1L A 50 SECTEURS 
SI ON FAIT COPY FILENAME.BAS:O ON AURA SUR LE DISK 1 
57 SECTEURS POUR FILENAME.BAS 
PAR CONTRE SI GN FAIT: 
CREATE FILENAME.BAS:1 50 
COPY FILENAME .BAS:O 
ON NI AURA QUE 50 SECTEURS SUR LE DISK 7 

LE BYTE #9B7, QUI EST LE BYTE D’ERREUR POUR 
LES INSTRUCTIONS DU DOS, PEUT SERVIR D UNE SORTE DE 
IF ERROR. 
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EXEMPLE: 
5 DIM A$(255) 
10 POKE #9B7 ,O:POKE #131,3=:PRINT “VERIFY FILENAME.STR:OQO" :POKEKZII,I 
15 IF PEEK (#9B7 )=0 THEN 50 
20 PRINT "LE FICHIER FILENAME NE SE TROUVE PAS SUR LE DISK,UEUILLEZ CHANGER LE 
ISK" 
30 RJIZ-GETC: IF RJI-O THEN 30:GUTO IO 
50 LOADA At “FILENAME.STR=O” 
STOCKAGE DES DISQUETTES: ON VEILLERA 
A TOUJOURS COLLER SUR LE COTE LA PETITE ETIQUETTE POUR 
BLOGUER L' ECRITURE «UN IDISK EST SI VITE ARRIVE. 
L” INSTRUCTION RESETD SERT A REINITIALISER LE 

` PROCESSEUR DE LA DISQUETTE SIL SERA UTILISE QUAND ON 

UTILISE LES FICHIERS ASCII OU" ON A LA DONNEE QUE 

LON VEUT ET QUE L GN VEUT ARRETER LA LECTURE. 

SI OH FAIT UN BREAK DANS UNE INSTRUCTION DU 

DOS OU DANS UN LOADA,SAVEA,LOAD, SAVE „IL VAUT MIEUX,DES GU’ON 

ALE CONTROLE, EXECUTER UN RESETD SINON LA PROCHAINE 

INSTRUCTION DU DISK RISQUE D’ETRE FAUTIVE (SURTOUT POUR LE 

DIR GUI N'EFFECTUE PAS UN RESETD). 

SI VOUS AVEZ UN FICHIER GUE VOUS MODIFIE REGUL IEREMENT 

«(FICHIER CORRESPONDANCE ,STOCK,COMMANDE) VOUS DEVEZ TROUVER UNE TECHNIGUE POUR 

NE PAS RISQUER DE LE PERDRE. 

LE SAUVETAGE TRIANGULAIRE 

“SOIT DISK "B" LE FICHIER FAIT ፈደ Z NOVEMBRE 

VOUS FAITES UN BACKUP SUR LE DISK "B" 

VOUS MODIFIER LE DISK "D" LE 5 NOVENBRE 

VOUS FAITES UN BACKUP DE "A" SUR "C" 

VOUS AVEZ DONC 

“RY DISK 7 NOVEMBRE 

"p"-"C" DISK 5 NOVEMBRE 
^ VOUS MODIFIEZ LE DISK “A” LE ZO NOVEMBRE 
VOUS FAITES UN BACKUP DE "D" VERS "p" 
VOUS AVEZ DONC 
"B" DISK 7 NOVEMBRE 
"t" DISK 5 NOVEMBRE 
"$"-"p" DISK ZO NOVEMBRE 
QUANT VOUS ETES CERTAIN QU'IL N Y A PAS EU D'ERREUR SUR “ይ”-“ወ” VOUS 
DETRUISE LE DISK "B”.ON DOIT EN FAIT VEILLEZ A TOUJOURS AVOIR 
LE FICHIER, SA COPIE ET SA VERSION PRECEDENTE. 
CECI EST UN MINIMUM. 


U 


POUR CEUX QUI FONT DES MODIFICATIONS GUOTIDIENNENEN, IL VAUT MIEUX ADOPTER UN 

CYCLE SUR 7 JOURS. VOUS DETRUISEZ LE FICHIER DU JOUR DE LA SEMAINE PRECEDENTE 

ET GARDEZ DES LORS A TOUT MOMENT é VERSIONS. 

LE LUNDI, ON DETRUIT LA VERSION DU LUNDI PRECEDENT 

D’AUTRE PART, UNE COPIE NE SE STOCKE PAS DANS LA MEME BOITE QUE 

L ORIGINAL ET DE PREFERENCE PAS DANS LA MEME PIECE.CECI 

POUR EVITER DES ACCIDENTS (VOLS,CHAHP MAGNETIQUE ACCIDENTEL,ETC..) 
CONCERNANT L’IMPRIMANTE (EPSON MA8O F/T),IL FAUT EVITER DE LEI 

ENVOYER TROP SOUVENT DES CARACTERES DE CONTROLE, CAR 

ELLE NE FAIT DES LORS PLUS QUE L'ECRITURE DE GAUCHE A DROITE 

ET EST DE CE FAIT LORS PLUS LENTE. 

EXEMPLE: 

10 FOR I-O TO 200 

20 PRINT CHRECIS?SASCI) 

30 NEXT I f 

LE CHR$(15) EST RAPPELE A CHOQUE LIGNE.IL EST NON SEULEMENT 

INUTILE MAIS L’IMPRIMANTE NE TRAVAILLERA QUE DE GAUCHE A DROITE 

IL VAUT MIEUX FAIRE 

10 PRINT CHRSCISOg;:FOR I-O TO 200 

20 PRINT ASCI? 

30 NEAT I 
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CONCERNANT LE PERSONAL COMPUTER,PLUSIEURS REMARQUES: 
L INSTRUCTION FRE EST LE NOMBRE DE BYTES ENTRE LA FIN DE 
LA TABLE DES SYMBOLES ET LE DEBUT DE LA ZONE D ECRAN 
ELLE FAIT LA DIFFERENCE ENTRE LA VALEUR DE SRG) ET 3-540 
ELLE NE REPRESENTE EN RIEN LE RESTANT DE MEMOIRE. 
SACHANT QUE L'INSTRUCTION SAVER LOADA UTILISE CE BUFFER 
POUR SAUVER SES FICHIERS, ON DOIT AVOIR LE FRE QUI DOIT 
ETRE EGAL OU SUPERIEUR A LA DIMENSION DU FICHIER. 
POUR LES FICHIERS STRINGS, ON CALCULE LA DIMENSION 
DE LA FACON SHIVANTEZEXENPLE: DIM BĚC20,10) 
Z BYTE POUR LE NOMBRE DE DIMENSION 
2 BYTE POUR LES CARACTERISTIQUES (20,10) 
ZOrZ)KCZO+Z)#2 POUR LE TABLEAU DE POINTEURS 
ያ BYTE DE LONGUEUR DE STRING+ LA VALEUR PAR MEMOIRE OUUERTE 
SI CE NOMBRE EST PLUS GRAND QUE FRE, IL APPARAIT HN LOADING ERROR 1 
ON PEUT A LA RIGHEUR.SI L ON N A PAS BESOIN DE L'ECRAN 
A CE MOMENT CHANGER 203-204 PAR #BFFF,PUIS LOADA ET REMETTRE 
B3-04 EN PLACE APRES 


5 DIM Bn$c255 
10 AZ=PE e PP PB 


ZO PORE 3.sFFSPORE I,#BF 

JO psi ka We "FICHIER" 

ZO POKE F,AZ:POKE 4,BZ 

50 MODEQ:PRINT CHR$(12) 

L”'ECRAN PENDANT LE LOADA SE REMPLIT DE DONNEES CODEES,IL 
FAUT L EFFACER PAR LA LIGNE 50. 

AVEC CE SYSTEME, ON PEUT AVOIR UNE HEAP PLUS GRANDE MAIS 
IL NE FAUT PAS AVOIR BESOIN DE L'ECRAN A CE MOMENT LA. 


CONCERNANT L ORGANISATION DES PROGRAMMES BASIC, 
JE RESERVE DES ADRESSES POUR CERTAINES FONCTIONS, MEME 
EI JE N EN AI PAS BESOIN 
1-99 UNIGUEMENT L”INITIALISATION 
100-197 CONTROLEUR GENERAL DOUT TOUT PART ET REVIENT 
200-999 TONES DE TRAVAIL OU LES TACHES SONT SEPAREES TOUS LES 100 
TACHE 1 DE 200 A 299 
TACHE 2 DE 300 A 399 ETC 
L000 EDITEUR DE VALEURS 
30000 LOAADA DE FICHIERS 
34000 SAVER DE FICHIERS 
32000 LECTURE DU DIRECTORY DU DISK 
10000 ROUTINE D IMPRESSION SUR L* IMPRIHANTE 
CECI PERMET DE CONSTRUIRE DE NOUVEAUX PROGRAMMES SANS 
RELOCATER CERTAINES ZONES ET D'UTILISER LE MERGE POUR 
FAIRE UN PROGRAMME. C'EST LE PRINCIPE DU MODULE. 
JE RESERVE EGDLEMENT CERTRINS NOMS POUR DES PROBLEMES 
PARTICULIERS. 
RIZ TOUJOURS POUR LE GETE 
Z,ZZ,ZR,„ZZR,„ZE,ZZ$ TOUJOURS POUR DES CALCULS INTERMEDIAIRES 
QUI VONT ETRE UTILISES TRES RAPIDEMENT DANS 
LE PROGRAMME OU DES DONNEES TRANSMISES A UNE 
SOUS- ROUTINE 
EXEMPLE Z=3:60SUB 2000:PRINT A$(Z) LE Z N'ETANT PLUS 
UTILISE PAR BPRES.CECI PERMET DE LIMITER LE NOMBRE DE 
VARIABLES 


I, J,K,IZ, JZ, KZ UNIQUEMENT POUR LES BOUCLES FOR NEXT 
DISC > UNIQUEMENT POUR LE COPIAGE DU DIRECTORYCSDKDIR) 
AVEC BISCO) OU DIECO,O ET DISCO,ZI> LE NOMBRE DE FICHIERS OUVERTS 

ASC) BEC EEC) AC) AZC ETE POUR LES FICHIERS 

AVEC CETTE ORGANISATION, LA LISIBILITE DES 
PROGRAMMES EST PLUS GRANDE. 

JE VOUDRAIT SBUOIR SI VOUS AVEZ UN ASSEMBLEUR 
POUR UTILISER DISK, EI CONTENANT EGALEMENT DES MACROS 
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dida soft 


Nieuwe onderwijssoftware ... met het diDAIsoft-kwaliteitslabel. 








1. diDAIsoft-talentape 


* a, Test your tenses level 1 

ኒ 5 lijsten van telkens 10 onregelmatige engelse werkwoorden worden ter studie aan- 
5 geboden. Per lijst van 10 worden de hoofdtijden opgevraagd. Foutieve antwoorden 
worden onthouden , verbeterd en opnieuw aangeboden. Basiskennis. 


ca ኅብረ - 


ከ, Test your tenses level 2 


6 lijsten van telkens 10 onregelmatige engelse werkwoorden worden op dezelfde 
wijze als in level 1 aangeboden en verwerkt. Uitbreiding van de basiskennis. 


— — — — — — — ጨጨ 


De leerlingen moeten een correcte engelse zin vormen met een gegeven verb, subject, 
object en time adjunct. De aard van de gewenste zin (question, statement...) wordt 
eveneens opgegeven. Na twee pogingen wordt het correcte antwoord aangeboden, 


De computer presenteert woorden en uitdrukkingen in verband met: 


1. animal sounds 2. young animals 3, male ... and... female 
4. groups of animals 5. animals we eat 

Na een studietijd worden deze uitdrukkingen ondervraagd. Correctie van foute ant- 
woorden. 


Analoog als bij animals. De woorden en uitdrukkingen hebben betrekking op 
quantities and qualities: synoniemen , tegengestelde begrippen.... 


De computer presenteert een woord tesamen met een ganse reeks andere. De leerling 
moet het synoniem of het antoniem uit de lijst aanstippen, Vlot te gebruiken, 
Eenvoudig aan te passen naar andere toepassingen, 


h. Nederlandse items 


Gebruiken jou leerlingen ook zo vaak foutieve uitdrukkingen zoals “wedden voor 

20 frank" in plaats van "wedden om 20 frank" ? Laat ze dan dit diDAIsoft-progran- 
ma uittesten. Dit programma hamert 40 analoge uitdrukkingen op een correcte wijze 
vast in hun taalgebruik, 
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didaisoft 


2, Het diDAlsoft-familiebudget 





Voortaan geen problemen meer met uw familiebudget. De DAI-personal computer 
houdt al uw inkomsten en uitgaven (zeer sterk gerubriceerd) bij, maakt alle 
gewenste totalen en overzichten, Het geeft u een duidelijk beeld (grafisch) 
van de diversiviteit van uw jaarlijkse uitgaven en berekent vanaf een gewenste 
maand het cumulatieve verschil van uw uitgaven en inkomsten, zodat u zelf uw 
eigen budget kritisch kan bekijken (grafisch) en beslissingen treffen in ver- 
band met uw maandelijkse spaaractiviteiten. Alle bedragen worden opgeslagen 
in arrays die op informatiedrager worden opgeslagen. 

In het onderwijs als toepassing mogelijk in de lessen economie, handel... 

en in de lessen informatica waar bepaalde routines die in het programma uit- 
gewerkt zijn kunnen bestudeerd worden, 


3. Grafische hulp 


Dit diDAIsoft-programma laat toe op een eenvoudige wijze tekeningen te maken 
en deze tekeningen tesamen met de tekst die erbij werd geschreven in files weg 
te schrijven en snel op te roepen, Op deze wijze kan men gemakkelijk de scherm- 
layout van educatieve programma's verzorgen. 

Geleverd met een uitgebreide handleiding (20 blz.) 


4. diDAIsoft-wiskunde tape 


Zeer didactische grafische presentatie van de definitie en het verloop van de 
neperiaanse logaritmische functie, 


Zeer duidelijke grafische illustratie bij het bewijs van de stelling van Pytha- 
goras. 


c. Methode van Gauss : oplossen van nxn stelsels 


Dit programma lost nxn stelsels op met de methode van Gauss en laat toe voor 
n kleiner dan 6 deze methode stap per stap te volgen. 


Dit programma toont duidelijk het algoritme van de opeenvolgende delingen 
om de GGD te berekenen. Het laat bovendien toe dit algoritme zelf ook toe te 
passen. 


Dit programma bestaat uit 3 delen: I 
1. demo: het zeefalgoritme wordt toegelicht voor de priemgetallen kleiner dan 200 
2. m.b.v. deze methode kan de leerling de priemgetallen kleiner dan 5000 bepalen 
deze worden genummerd, zodat kan gevraagd worden naar priemgetal nummer n. 
3. onderzoeken of een getal kleiner dan 25000000 een priemgetal is en zo nee 
een priemdeler laten afdrukken 


Dit programma laat toe met concrete gegevens de driehoek volledig op te lossen, 
Het behandelt meer dan de vertrouwde hoofdgevallen. 
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didaisoft 


Dit programma laat toe de veldlijnen uit te tekenen veroorzaakt door twee ladingen. 
Doordat het programma aan de gebruiker toelaat waarden voor parameters in te 
voeren is het programma voldoende flexibel om alle aspecten van deze theorie 

toe te lichten. Een uitgebreide handleiding wordt bijgeleverd. 


b. Tijd-weg 


Het doel van dit programma is: 

1, meten van tijden tussen N opeenvolgende sluitingen van de event ingang op 
paddle 1 

2, in de onderstelling dat dit sluiten gebeurt door de beweging van een voor- 
werp (wagentje) voorbij kontakten op onderling regelmatige afstanden A langs 
een baan, uitzetten van de beweging in weg-tijd-grafiek 

3, uitzetten in grafiek van gemiddelde snelheid en gemiddelde versnelling in elk 
interval. Met handleiding, Ova, t.b.v. het practisch uitvoeren van de kontak- 
ten. 


c. Stopwatch (kort) 
Dit programma laat toe de DAI p.c. als chronometer te gebruiken en een aflezing 


te doen met grote cijfers. Paddle noodzakelijk. 


d. Stopwatch (lang) 


Zoals stopwatch kort maar met mogelijkheid om het tijdsverloop te volgen. 





Enkele concrete voorbeelden (water - kwik en water-olie) worden gebruikt om 
op een zeer mooie grafische wijze de wetmatigheden die gelden bij een U-vormige 
ነ buis te illustreren, 


Wat is diDAIsoft ? 


diDAIsoft is een softwaregroep die werkt binnen DAInamic en bestaat uit leer- 
krachten uit alle niveaus van het Belgisch onderwijs. (lager, secundair, hoger). 
De groep hesft als doelstelling voor alle vakken van het (hoofdzakelijk secun- 
dair) onderwijs didactische software te ontwikkelen. Op dit ogenblik bestaat 
de groep uit 27 leden, die tweemaandelijks samenkomen in het CMO-vormingscen- 
trum te Haasrode Geldenaaksebaan 327, telkens op zaterdag van 10u tot 16u. 
Volgende bijeenkonst 26-2-1983. Bent U leraar en heeft U interesse, kom eens 
kijken. Vooraf toch graag een telefoontje aan Bruno Van Rompaey (016/461085). 
Waar de groep geinteresseerde collega's te woord zal staan is op zaterdag 9 
april 1983 op onze DAInamic dag in Westerlo-Tongerlo. Kom daar zeker eens 

; kennis maken. We hebben ook uw bijdrage nodig om van de diDAIsoft-program- 

4 ma's kwaliteitssoftware te maken. We verwachten U, collega. 
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program identification 


A 
title $ “KEN-DOS ‚a new floppy-standard for DAIpc 


Kenneth Gooswit 


author 
purpose 


We will brinq test results in the next editi 
comment ae R En ሲቪ. ን. ንን ንን ን. ሚሪ 52 5 





Dear User, 


About a year ago I was annoyed by the fact that there was no fast 
memory-unit available for the DAI-PC. Then Dai came with a twin-drive 
floppyunit, but in my opinion this unit doesn't meet all the needs of 
the common user. In fact, this unit is very slow. 

To overcome this problem I then started to do some research. 

After several months of hard working and talking to the right people, 
I managed to construct a controller-board that made it possible to 
operate four Bü-track floppy drives. 

At that moment only in single-density. 

The problem was that I couldn’t adapt any software to my system and I 
was forced to write mine own operating system. 

Now most of the work is done, and I can proudly announce the birth of 
"Ken-Dos’. I have contacted a few firms and it is now possible to sup- 
ply a complete unit with fast accestime and a lot of storage 
capabilities. Up to 3,2 megabyte. A back-up is done within one 

minute and fifteen seconds (4GOkbyte) 


THE HARDWARE 


The system consists of a controller-PCB, powersupply with ringcore 
transformer,enclosure for two drives, one or two drives and an eprom- 
FC-Board with 14 banks of Zkbyte that has to be connected to the X-bus; 
thus 2B8kbyte extra memory. 

The software resides totally in eprom (izkbyte) and there is an option 

af using 4kbyte of static rams (61146), which is then used as an 

buffer for the directory and the sectormap. Normally 2560 bytes of the 
DAI-ramspace from #A950 to #8550 is used for this purpose. This buffer 
moves automatically with the screenbuffer, so saving a picture ህጩበ”ቲ be 

a problem. There are programs however, like the new assembler/editor, 
shich use those addresses and in that case the user has the option af 
using the extra 4kbyte buffer. Ta do so however, the stack-interrupt 
circuit has to he disabled by putting the base of transistor T1 to ground. 
The user has iSkbyte extra romspace at his disposal, so it is possible 

to put several programs in eprom. 

Since Ken-Dos is totally in eprom, any program ever written for the DAI-PC 
can be loaded and run without relocation. 

The controller PC-Board can handle four mini &80-trackdrives (double sided/ 
double density). That means that the user can put 3,2megbyte on line. 

To use the double density mode, the user has to make a minor hardware 
modification. Pin 49 of the X-bus has to be connected to pin 4 of the 
DCE-bus. 

The powersupply can service two drives and is automatically switched on 
and off by the DAI-PC. 

The controller PC-Board, powersupply and drives are horizontally mounted 
in a cabinet. On the rear is an extra connector for a printer or DCR. 





56 - DAlnamic 14 





THE SOFTWARE 


E. 
E. 





The software can handle sequential- and randomacces-files. 

Hn single density the user can store 200kbytes formatted and in double density 
MOOkbytes on a single side of a diskette (DS/DD). 

mince Ken-Dos is entirely in eprom, there is no need for a systemdisk so 

fall memoryspace on the diskette is at the users disposal. 

After coldstart or reset ken-Dos will be in search of com-files on the disk re 
sided in drive-ů. The names of those files are placed in the extended command- 
table and are then handled as commands. This means that those files can be 
loaded and eventually executed by just entering the name of the file, 























After this search another search takes place. Ken-Dos will look for a file 
with an unique mark telling that this file has to be loaded and eventually 
pxecuted. If no such file is found it returns by printing name of the inserted 
lisk,date, free sectors, status of protection and density on top af the screen. 
MKen-Dos will then ask for date and password. To keep the password secret, it 
ps scrambled on the screen. If the user doesn't know the password, he will not 
have acces to protected disks or files and utilities. 
i th ken-Dos it is possible to link a basicprogram to a ML-part.On loading 

the basicprogram the ML-program will automatically be loaded. First ken-Dos 
loads the ML-part and then the basicprogram. Pointers are corrected. 
When loading a file, the user could enter the full name of the file, but 
it is also possible to enter just a part of the name. Ken-Dos will find and 
1030 the desired file. If an autostartmark is placed befare the name i+}, 
the file will be executed. 
very file is saved with date of creation and date of the latest modifi- 
Fation. 
Mhe disk has a name, a date of formatting, and can be software protected 
hoai ns writing or reading. Every disk has a directory of the created files, 
fn single density the user can create 64 files; in double density 128 files. 
After entering the command "DIR1”, Ken-Dos will display the directory of the 
fisk in drive-i. The name, date etc. of the disk will be printed on top of the 
kcreen followed by the filenames. On hitting the spacebar the filenames will 
Ecroll on the screen. The diskname etc. will remain stable. 
Mo display all files „including deleted files, just type "DIRi17. 


he following COMMANDS are available: 


EN DIRO" display directory on screenidrive-O is selected) 
ILIBi^ all commands are displayed on screen 
| 1527 all extentioncommands (com-files) are displayed 
HELP information about using Ken-Dos is given an the screen 
LOAD". nm: normal Dai-load 


ic 


SAVE". . 
DLOAD"... "7 
Breu as 
IDISK1” 
ሰ5 

RDCAS* 
WROAS? 
DCR? 
PRINT" 
PASS” 
DATE’ 
BASIC? 
COM 1? 

BANKS? 


normal Dai-save 

any file or a part can be loaded (ML-files etc.) 
any file or a part can be saved 

assign system to disk (drive-1 is selected) 
assign system to casset 

read-only of casset 

write-only 

assign DCE-bus to DER 

assign DCE-bus to printer 

to enter the password 

to enter the date 

basic pointers are shown and can be modified 
com-files are retrieved from disk (drive-i is selected) 
to select an eprombank (bank-5 is selected) 
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The following commands are only available to the user who knows the right 
password: 


"RENAME", , "7 
* DNAME1* 
“KOUN 
“UNLOCK s dn 
"DELETE", , ">" 
"RESTORE". "> 
KILL 

' COMPACT". "* 
COPY" z BI 
"BACKUP" 7 
“OPEN? e = uc 
CLOSE ET n > 
ZVERIFY".."7 
"FORMAT", . "7 
* MANUAL” 


to change the filename 
to change the diskname (drive-i is selected) 
to protect file 


to deiete a file 


to destroy a file 

to copy all files (except deleted filez) 

copy a file 

total copy of the disk 

open a file for writing 

close it 

verify a file and print informations about lenght, startaddress 
format a disk et... 
To read or write any sector on the disk 


BN ዛዘ ዘዘ ዘዛ UB ዘዘ DE ዘዘ nR nR ዘዘ NN MN MN Mi 


It is possible to link most commands to basicprograms. A basic-line with 
"CALLMHFOOO:HEM ... (command)? will do the job. 

There are more features, but explaining them all goes beyond the purpose 
of this article. For detailed information I refer to the USERS-MANUAL 


The whole system complete with one or two double-sided drives (resp. BOOkb 
or 1,6 megbyte of memoryspace) and the USERS-MANUAL can be ordered. 
Just write to: 

Ken-dos dev. 

F.O.B. 40 

1616 ZG HOOGKARSPEL 

HOLLAND 

TEL: O2285/1 28 93 

or: 

MIKRO SHOP 
Bennenbergweg 1 
2221 NIEUWRODE (Bij AARSCHOT) 
BELGIUM 
TEL: 916/56 87 70 


It will be possible to adapt the system to other minidrives or microdrives. 
For further information write to us. 

There are also entrypoints to use with modified CPM 

A utility program to read standard DAI-disks will be available. 

Ken-Dos is written in a way that it can be extended. All extentions will 

be available at minor costs 


Kenneth Gooswit 
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AUDIO CASSETTE INTERFACE 


PART is WRITING TO TAPE 


1. FORMAT: 


1.1. DATA FORMAT: 


Many personal and hobby computers use the so-called Eansas-UCity 
format for writing data to an audio cassette tape. This is a FSE 
(frequency shift keying) method, using 1200 Hz and 2400 Hz tones 
write "Or and 71" data bits to the tape. 

The DAI uses a different format. For each bit written to tape, it 
uses 2 impulses of different duration, a short one and a long one. 
The signal send to tape for a "or and for a "i^ bit are given in 
figure i. 


rt 
D 


figure 1: Data '1" and 'O' bits 





1.2. LEADER FORMAT: 


At the beginning of a program (a file), written on tape, a "leader" 

tone is written in order ta enable synchronisation when the file 

has to be read from the tape. The leader consists of a great number 

of bits, for which the duration of the “long” and the short“ impuise 

are equal {see figure 2). This results in a constant tone of about 
890 Hz for ca. 2.5 secs. 


KE mene ky 


figure 2: a leader bit 


At the end of the constant tone, one 717 bit is written to tape to 
indicate the end of the leader tone. 


1.2. TRAILER FORMAT: 


Figure 3 shows the format of a bit of the trailer tone, which is 


written after a file on tape to indicate its end. 
Although the DAI writes a trailer tone on the tape, it does not use 
it when reading the file from tape. 


a ce መ 


figure 3: a trailer bit 


A data 71" bit ends the trailer tone. 
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1.4. TAPE SPEED DATA: 


The information für the impulse duration of the impulses to be 
written on tape is moved from ROM (D7CE-D7CA) into RAM OPES-OZEB 
during system reset. These constants are: 


G2Lt6/7 24/24 Impulse, duration leader bits 
O2ES8/9 24/30 Impuise duration data bits 
O2EA/B za4/1i18 Impulse duration trailer bits 


=. AUDIO CASSETTE RECORDER CONNECTIONS: 


Two audio cassette recorders can be connected. Their motors can be 
Switched on/off under program control. The audio input and output 
channels of both recorders are parallel connected. 


Output DAI to recorders: Fort FDOS, bit Q. 
Input recorders to DAI: Fort FDOO, bit 7. 


Motorcontrol rec. i: Port FDOS, bit 4. 
Motorcontrol rec. 2: Fort FDOS, bit 5. 


A copy of the data send to port FDOS is kept in RAM (KÓ13D), because 
port FDO6 may only be written to. 


See the DAI schematics (sheet 5) for details on the hardware. 
Details on the software can be found in the "DAI pc FIRMWARE MANUAL”. 


3. SUBROUTINES FOR WRITING TO TAPE: 


3.1. WRITE A BIT — WRIT/DS24: 


On entry, the HL-registers contain the relevant impulse duration 
information from OZE6-02EB. One cycle (= 1 impulse = high/low) is 
written to port FDO6/bit O for the duration of the value loaded 
into H. Then the value in L is moved into H, and the second cycle 
(with other impulse duration) is written to tape (see figure 1). 


This routine is used for writing data bits, leader bits and trailer 
bits to tape. 


le 7:1... ከ. በ. A 


92 BEL 292 260 425 
total: 2243 cycles 


Ee cer 
92 927 952 567 425 


total: 2963 cycles 
92 567 592 927 785 
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WB 20210... eh ek (© 


E 92 387 412 567 425 
E total: 1885 cycles 


E Duration given in machine cycles (1 cycle = 0,5 usec) 


Tape speed data: 


' 


24/24 ፦ Used for the leader. 


1 1 
SE - Used for data bytes: Fi 
18/24 - Used for the trailer. 


Figure 4: Bit patterns and timing 


= 
oz 


2. WRITE A BYTE - WEYTE/DSO9: 
On entry, the byte to be written is in the accumulator. The HL regis- 
t ters contain the impulse duration values, and the DE registers are 
| loaded with the inversed values. 
To write a byte (= 8 bits), the highest bit is moved into the CY- 
flag. If the bit is 71°, fig.4b is written to tape; if the bit 


is 
'Q', fig.4c is written to tape. This sequence is done 8 times. 


1 1 0 0 1 0 1 0 
data byte 11001010 = CA 


figure 5: A data byte pattern 


3.3. WRITE A LEADER — WLEAD/D4ED: 


The HL registers are loaded with the tape speed data 24/24. in BC, 

| the number of leader bits to be written are loaded (#07EB = 2024). 
E Now 2024 times 24/24 impulses are written via WHIT. When all 

E leader bits are written, HL is loaded with the tape speed data for 

a data bit, and a 71" is written, indicating the end of the leader. 





2024 leader bits E 


figure 6: Leader pattern 
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5.45. WRITE A TRAILER — WIRLX/DSSC: 


On entry, BC = #0142 + length of the program name. Via D4FS {WLDIO), 
a number of trailer bits (18/24), equal to the contents of the C- 
register is written. At the end, a 71" bit indicates the end of the 
trailer. 


n trailer bits 1 
B m መፍ: NET — en ou 


figure 7: Trailer bit pattern 


4. FILE HANDLING: 


Now all subroutines are known, the file set-up will be explained. 
LA program written to tape can be considered as a file). 

Normally, a file consists of one or more blocks of data, which are 
en to tape sequentially. At the beginning af the file on tape, 
a kind of a header“ is written, containing the leader tone and 
sune information on the type of file. The end of the file is marked 
with a trailer tone. 


cas te operation, subroutines are available in the 
software to open a tape file (CWOFEN), write data blocks to 
tape (CWELE) and to close a tape file (CWCLOSE). 

The startaddresses of these audio tape file handling routines are 
moved from ROM {D7A4-D7ACH into RAM OZES-OZ2CD during system reset. 
These RAM pointers WOPEN, WBLE, WCLOSE can be loaded with other — 
user defined — pointers in order to address write routines for other 
mass storage devices, like floppy disk or digital cassette recor- 
der (like the Memscom MDCR}. 


set 


The default values (audio cassette recorder) are: 


WOPEN 92ር5 JMF #D2B8 
WEILE GZ JMF #D2Fi 
WELDSE OZCB JMP #D427 


4.1. OPEN A TAFE FILE — CWÜUFEN/DZBB: 


- Evaluate if writing to tape during a program run or in direct 
mode (MPT2i/D720). 

- If in direct mode: Print "SET RECORD,START TAFE.TYPE SPACE" and 
wait for the spacebar to be pressed, | 

— Start selected cassette motor is) (CASST/D4ZE). 

- Write leader tone (WLEAD/DA4ED). 

- Write a "flag byte” #5 io to tape. This is the first byte after the 
leader tone. 

— Write a "file type byte’: 

#30 : Basic program. 

4351 5 A hex file. 

z On array. 

- Write name length and name of the file tif a name is given) to 

tape via a CWBLE routine (via MPT22/D7F8»5. 


4.2. WRITE A DATA BLOCK TO TAPE — CWBLE/DZF1: 


- Write the length af the black, followed by its checksum. 
- Write the contents af the block. plus its checksum. 
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The checksum-byte is a control byte on all transmitted cata bytes. 
It is intially set to #56, and then EXOR-ed with the data byte, 
followed by a RLC (rotate left). This is done again and again for 
all data bytes transmitted. The final checksum byte is written on 
tape after the last data byte. I 





4.3. CLOSE A TAPE FILE — CWCLOSE,/DA27: 


r 


ü — Write trailer bits ¿(WTRLXZ/DSSG), 
$ — Switches aff cassette motors I(CASSF/DA4Zi. 
i 


5. RESIDENT DATA FILING ROUTINES: 


The DAI firmware knows 3 data filing routines: 


I ` SAVE file type 0 Save Basic programs. 
i "UT/write" file type i Save Hex files 
` SAVER? file type 2 Save Arrays 


The use of the routines WOPEN, WELKE and WCLOSE iz slightly different 


for each of the Ž methods. 
5.1. BASICCOMMAND "SAVE" — RSAVE/DSAD: 


- D23D: Clear all variables, calculate length of textbuffer and 
symboltsble, evaluate a (evt) given name. 
- D263: WOPEN (see 4.1). 
E - D268: WELK: write textbuffer length + checksum. 
Y idem for textbuffer contents. 
a - DZ6C: WELK: write symboltable length + checksum. 
idem for symaboltable contents. 
WCLOSE (see 4.3). 


4 5.2. UTILITY COMMAND "wírite)" - SEEE4: 


— EEE4: Get low- and highaddress on stack. 
EEED: Get an evt. name in the encoded input buffer. 
X EEFB: WOFEN. 
E - EEFE: WELK: write startaddress (length + checksum, contents + 
I checksum). 
- EFOG: WELK: write hex block (length + checksum, contents + 
E checksum) 
E - EFOB: WCLOSE. 


5.3. BASICCOMMAND "SAVER" — RSAVA/DBID: 


i DS1D: Test type of array. 

BE 7 - D824: If stringarray: Arrange stringelements in the free RAM 

E j space (see previous article on BAVEŘ/ULOÁDÁ . 

E - D82F: WOPEN. 

E - D837: WBLK: write array type (length + checksum, byte + checksum). 
E WALK: write array contents {length + checksum, contents 

€ * checksum). 

E 2 WCLOSE. 





a (©) - Jan Boerrigter - Jan. 1983 
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identification 





title o 3-0 pictures (with colored glasses) ሊሲ. 
author J.Roelants 


purpose 








comment you need glasses with one red and one green 
o wn H OÇ 
filter. 





Als waarnemer qeplaatst in de ruimte ontvangen we twee verschillende 
beelden via ons linker-en rechter oog . Deze twee beelden versmelten 
in onze hersenen tot één enkel beeld zodanig dat er een diepte-indruk 
ontstaat,m.a.w. we verkrijgen informatie omtrent de drie dimensionele 
ruimte die ons omringt . l 

Willen we een 3D-ruimte suggareren op een plat vlak dan kan dit in 
principe gebeuren door twee perspectievisch verschoven beelden te 
creêren . Het probleem stelt zich nu dat er door één oog slechts 

één beeld mag worden waargenomen . We rekenen er op dat onze hersenen 
deze twee beelden integreren tot één enkel 3D-beeld . 

Een eerste bekende methode bestaat er uit een stereo-kijker te ont- 
werpen die er voor zorgt dat elk oog slechts één van de voorgestelde 
figuren waarneemt . Het voordeel van deze methode bestaat erin dat 

de voorgestelde figuren allerlei kleuren kunnen bevatten . 


Een tweede methode bestaat erin de twee perspectievisch verschoven 
figuren over elkaar te plaatsen . Beide figuren bestaan uit één kleur , 
bijvoorbeeld rood en groen . Daar waar de gemeenschappellijke deten«.. 
elkaar overlappen gebruiken we bijvoorbeeld geel . f 
Plaatsen we nu over het techter oog een rode filter dan zal het rechter 
oog de groene figuur niet waarnemen . 

Plaatsen we over het linker oog een groene filter dan wordt de rode 
figuur niet waargenomen . 

Zijn de twee figuren op de juiste manier perspectievisch t.o.v. elkaar 
verschoven dan ontstaat een 3D-figuur . 

Het voordeel van deze methode bestaat erin dat we gans het beeldscherm 
kunnen benutten . We dienen echter over een bril,voorzien van een rood 
en groen glas,te beschikken . 


Er bestaan ondertussen technieken die toelaten drie dimensionele beelden 
op te wekken door het beeld te onderwerpen aan vibraties , hierbij kan 
het 3D-effect worden waargenomen zonder enig hulpmiddel . 
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Laten we de tweede methode nader toelichten . 
We dienen te beschikken over 4 kleuren . 
Namelijk zwart,rood,groen en geel . 
Dit kan bij de DAI-gebeuren met COLORG 03514. 
Hierin is kleur 3 (rood) voor het rechterbeeld . 
kleur 5 (groen) voor het linkerbeeld 
kleur 14 (geel) voor de gemeenschappellijke delen . 
Elk beeldelement dient te beschikken over twee bits die we afzondelijk 
moeten kunnen beinvloeden . 
Het rechterüeeld onstaat door de eerste bit te setten » het linker- 
beeld door de tweede bit te setten . 


Bij de gemeenschappellijke delen is nu zowel de eerste als de tweede 
bit op 1 gebracht . 






COLORG 







achtergrond 


rechterbeeld in rood 
linkerbeeld in groen 


gemeenschappellijk in geel 


Bij DAI onstaat het rechterbeeld door kleur 17 te gebruiken, hierbij 
wordt de eerste bit gesét en behoudt de tweede zijn oorspronkelijke 
inhoud . 


Het linkerbeeld onstaat door kleur 19 te gebruiken, waarbij de laatste 
bit wordt geset . 

M 
Het laatste probleem datjons rest de coördinaten te bepalen van het 
linker-en rechter beeldpunt XEL,YE en XER,YE . Om deze te kunnen 
vinden dienen de coórdinaten van het weer te geven punt P te zijn 
gegeven (XP,YP,ZP) en de positie van de twee waarnemoingspunten . 
Het tafereel bevindt zich in het xy-vlak en de waarnemingspunten in 
het xz-vlak symmetrisch t.o.v. het yz vlak . De coördinaten van het 
rechterwaarnemingspunt zijn R(L,0,-V) , deze van het linkerwaarnemings- 
punt L(=L,0,-V) . 


Het snijpunt van de rechte PR met het tafereel kunnen we vinden door 


de vergelijking van deze rechte op te stellen in de ruimte en de 
z-waarde gelijk aan nul te stellen . 
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Xp- Xp Ar An Zp En 
XE,- L Ye 2 + V 
ZP - L Ap > Zp +V 
of 
V ( V 
x z „E XP-L L = = P 
n ZP +V / n dé ZP+V d 
Alu, we K < V vlou. ; 
Zp +V 
Ven = (4-K).L + K, Xp Je = K.4p 





Von AX BmkubutdAput + 


| ře = K. zp - ወ Je = - OP 


Daar de oorsprong van ons assenkruis in het centrum van ons beeld 
is gelegen dienen we aan de gevonden waarden een translatie toe te 
voegen van XMAX/2 voor de x-Kaarden en YMAX/2 voor de y-waarden . 


Nu dienen we de cočrdinaten van de gewenste figuur te genereren 
Beze indien gewenst te onderwerpen aan de nodige translatie en 
rotatiebewegingen om uiteindelijk de waarden van XP,YP en ZP vast 
te leggen . 

Daarna bepalen we de coördinaten van het linker-en het rechter 
beeldpunt zoals hierboven is beschreven . Passen eventueel een 
window toe indien bepaalde gedeelten van de figuur buiten het 
toegestane gebied vallen en wachten naar het resultaat dat we 
bekijken met onde bril . 

De waarden van de afstand V tot het tafereel bedraagt 500 

en deze van L = 25 indien XMAX=336 en YMAX=256 in MODE 6. 
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56 MODE © 

&6 PRINT CHR$(12) 
70 CURSOR 5,14: PRINT "DRIE DIMENSIONEEL TEKENEN" 
80 CURSOR 40,5:PRINT " J.ROELANTS":PRINT 

166 V=500.@:L=25.0 

600 INPUT " VERDRAAIING ROND X,Y,Z AS -> "3A,B,C:PRINT 

620 | A=A/57.296:B=B/57.296:C=C/57. 296 ptt 

640 GOSUB 4000 5 1 40099 

1000 MODE 6:MODE 6 

1020 COLORS © 3 5 14 

1040 R1-90.0:R2-30.0:REM FIGUUR 

1669 FOR II=0.0 TO 330.0 STEP 30.0 

1878 I-II*PI/180.0 

1080 FOR JJ=0.0 TO 350.0 STEP 45.0 

1090 3=33#ኮ1/186.6 

1100 X=R2*C0S(J)+R1:Y=R2%*SIN(J):7=0.0 

1116 GOSUB 2500 

1140 GOSUB 3000: G05UB 2000 

1180 NEXT JJ:NEXT II 

1185 FOR YS=-66.0 TO 60.0 STEP 20.6 

1199 FOR JJ=0.0 TO 360.0 STEP 45.9 

1200 J-JJXP1/180.0 

1210  XS-R2XCUS (J) : ZS=R2*SIN(J) 

1240 GOSUB 3090:G0SUB 2000 

1250 NEXT JJ:NEXT YS 

1400 | GETZ=GETC:GETZ=GETC:BETZ=GETC 

1420 GETZ=BETC:IF BETZ-0 THEN 1420 

1500 GOTO 50 

2600 REM BEELDPUNTEN 

2020 K=V/(ZP+V) 

2040 D=(1.0-K)#L:KX=KAXP+168.5 

2050 XER-KX4D: YE=KAYP+128.5 

2080 XEL=KX-D 

2100 IF J=0.0 THEN 2200 

2120 DRAW XER,YE XERM,YEM 17:DRAW XEL,YE XELM,YEM 19 

2200  XERM-XER: XELM=XEL : YEM-YE 

2220 RETURN 

2500 XS=X*COS(I)-Z*SIN(I) 

2520 YS-Y 

2540  ZS=X*SIN(I)+Z*CDS(I) 

2580 RETURN 

3000 REM ROTATIE 

3010 XP=AX*XS+BX*YS+CX*ZS 

3020 YP=AYAXS+BY#VS+CY#25 

3040 IP=AZAXS+BZ#YS+CZ#28 

3200 RETURN 

4000 AX=COS(B) *COS(C) 

4020 | BX=SIN(A) SIN (B) #COS(C)-COS CA) *SINÍC) 
4040 ርእ=ርበ8 (ል) *SIN(B) &COS (C) +SIN(A) *SIN(C) 
4050 AY=COS(B) *SIN(C) 

4070 BY=SIN(A) *SIN(B) *SIN(C) +COS (A) «COS (C) 
4080 CY=SIN(C) *SIN(B) #COS (A) -COS (ር) #SIN(A) 
4090 AZ=(-1.0)*SIN(B) 

4100  BZ=SIN(A) COS (B) 

4120 CZ=COS(A) #ርዐ8 (B) 

4200 RETURN 
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Bij het waarnemen van het beeld dient men de hekddrheid van het 


beeld zo hoog mogelijk te nemen zodanig dat de groene en rode 
kleur even sterk doorkomen . 


Men kan het beeld bewaren door een foto te nemen van het scherm 

of door twee screen coppy's te nemen . 

Bij de eerste screen coppy drukt men enkel de tweede en vierde 
kleur af „ bij de tweede de derde en de vierde kleur . 

Nu bekomt men twee figuren waargenomen door het linker - en het 
rechter oog . Bekijkt men deze twee beelden door een stereo-kijker 
dan onstaat het drie dimensionele beeld opnieuw . 


Veel genoegen met het waarnemen van de drie-dimensionele beelden … 
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program identification 


title ° PAINT 
author Frank Druijff 


To fill a shape with a specified color 
purpose £ I 





a machine-language version will be available 
comment — 1]...11.፡......፡. C C C C ን. 


X Y t X 5 a i n t * X € p 1 n t RKR p a i Ke K X 


De instructie PAINT is een grafische instructie die de DAI moest ontberen. 

De instructie die wel in de standaard instructieset van sommige andere machi- 
nes zit kleurt een willekeurig vlak in de door de gebruiker opgegeven kleur. 
Wij wilden die mogelijkheid cok graag voor de DAI realiseren en dat is gelukt, 
Ma wat gefilosofeer over een mogeli jk methode kwam Hans Peters met de gouden 
tip. Het schrijven van een programma om dere tip te gebruiken kostte toen ook 
nog het nodig denkwerk maar was uit te voeren. Toen de basicversie goed bleek 
te werken inog geeneens zo erg traag) kwam de volgende stap: het programma in 
machinetaal schrijven, Er was een aanzienlijke snelheidswinst maar toch bleef 
het verlangen naar meer snelheid. Die was mogelijk omdat mijn machinetaalversie 
gebruik maakte van de SCRN-routine in rom. Dat betekende dat de DAI bij elke 
aanroep van deze routine de x en y waarde controleerde op grootte en dan elke 
keer opnieuw de byte uitrekende waarin het gewenste punt stond. Dit is maar een 
keer in het begin nodig. Ik heb toen Nico Looi je om hulp gevraagd en die heeft 
mijn versie grondig onder handen genomen. Een gemiddelde snelheidverbetering 
van 4 a 5 maal. Samen nog even de laatste hand aan de routine gelegd en de DAI 
heeft nu ook een PAINT. 

Voor DCR en floppy bezitters moet het mogelijk zijn de routine zo aan te passen 
dat FAINT direct gebruikt kan worden of in een programma op de manier zoals DCK 
en floppy de ‘nieuwe’ instructies gebruiken. 

De routine zal opgenomen worden in een nieuwe TOGLKIT-collectie. 


Hoe werkt de paint 7 


we kiezen een punt in de figuur die we wensen te kleuren. 

we geven de volgende gegevens door aan de routine: de x en y van ons punt 
de randkleur van de op te vullen figuur en de gewenste vulkleur. 

de routine begint naar de linkerrand te zoeken. 

dan werdt vanuit dit punt de rechterrand gezocht. 

er wordt een lijn getrokken in opvulkleur van linkerrand naar rechterrand. 
er wordt een volgend punt op de rand gezocht vanwaar naar rechts een li jn 
fevt met lengte 1) getrokken kan worden. 

als we nog niet aangekomen zijn bij ons uitgangspunt bij de rand dan worden 
de punten 5 en & herhaald totdat dit wel zo is en dan zij we klaar 


Vooral punt é heeft het nodige denkwerk gekost. Hoe vindt je het volgende punt 
en hoe ga je de figuur rond, Het bleek achteraf erg simpel te zijn. Mensen die 
er zelf over willen nadenken moeten dan nu niet verder lezen. 

We gaan als volgt rand frechtsom): kijk of je naar boven kan zo ja doe dat en 
kijk dan of je naar links kan zo ja doe dat en kijk dan of je naar beneden kan 
en zo ja doe dat dan en kijk dan of je naar rechts kan en zo ja doe dat dan en 
kijk dan weer of je naar boven kan enz.. Kan je niet naar boven gaan dan naar 
rechts gaan, kan je niet naar rechts dan naar beneden, kan je niet naar beneden 
dan naar links. En ..... kun je niet naar links dan heb je een punt van waaruit 
je een lijn naar rechts kunt trekken. Goed geprogrammeerd zijn dit vier regels. 
(20, 50, 40 en 50) In regel 60 wordt gecontroleerd of we al klaar zijn en regel 
70 wordt de lijn getrokken. 
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In het basicprogramma zit echter nog een belangwekkend deel: regel 100 t/m 170 
Het is een zeer simpele, maar wel frasie methode om een punt op het beeld te 
laten bewegen. Met de cursortoetsen gewoon een naar links,rechts,boven of onder 
maar met cursortoetsen en ingedrukte shift met stappen van tien. Dit aantal kan 
ook anders gemaakt worden. Dit programmadeel loont de moeite om op te nemen in 
een set standaardrautines. 

Het basicprogramma voorziet verder in een mogelijkheid om zelf un figuur te te- 
kenen of de standaardfiguur te kiezen. (uit de DATA lijnen) 


Nog wat laatste opmerkingen over de twee machinetaal routines. Eerste versie 
werkt in alle modes,maar controleert niets. De tweede versie is sneller en con- 
troleert op juiste gebruik kleuren en geeft OFF SCREEN als de beeldrand bereikt 
wordt. Het nadeel dat deze versie alleen in vier-kleuren modes werkt is niet 


een echte beperking, door kleurconflicten is het programma nauwelijks zinvol te 
gebruiken in de zestien-kleuren modes. Probeer de basicversie maar eens in een 
zestien-kleuren mode. 


Al de oplossingen hebben echter een nadeel; als in de figuur nog een andere fi- 
guur ligt dan werpt deze een ‘schaduw’ naar rechts. Dit is nauwelijks op te 
lossen, tenminste niet op een zinvolle manier. Mogelijkheden zijn een tweede 
keer linksom rond lopen en dan juist naar links een lijn trekken maar dan is 
gedeelte tussen twee binnenfiquren weer ongevuld en het programma wordt met een 
factor twee vertraagd. Andere mogelijkheden als het ‘oversteken’ naar zo'n bin- 
nenfiguur leveren grote problemen op bij het bijhouden van terugkeer adressen. 
Een paar manieren om het probleem op te lossen. 
1) trek een lijn tussen buitenrand en binnenfiquur. Alles wordt dan goed gevuld 
en trek dan de verbindingslijn opnieuw in de vulkleur. 
2) teken buitenfiguur, kleur die, teken binnenfiquur, kleur met andere kleur. 


2) Kies nieuw startpunt in het nog niet gevulde gedeelte en dan wordt tekening 


daar alsnog gevuld. (de binnen figuur is dan rand !) 





Hierna het basic-programma en als u het intikt vergeet u dan niet eerst IMFINT 
te tikken 7 






CLEAR 254:GOTO 400:REM PAINT / F.H. DRUIJFF 12/82 
20 IF SCRM(X,Y+1)<>G THEN Y=Y+1:GOTO SO:REM BOVEN 
30 IF SCRN(X*1,Y)z2G THEN X=X+1:GOTO 20:REM RECHTS 
40 IF SCRN(X,Y-1)428 THEN Y=Y-1:GOTO ZO: REM BENEDEN 
so IF SCRN(X-1,Y) £28 THEN X=X-1:GOTQ 40:REM LINES 


60 KzX-1:IF X-BX THEN IF Y=BY THEN IF F=1 GOTO 80፤ሾ=1 

70 E=K+1:IF SCRN(K,Y)<2G GOTO 70:DRAW X,Y K-i Y W:GOTO 20 

80 EMD d 
100 C=SCRN(X,Y):DOT X,Y 23:H=GETC:DOT X,Y C:IF H=0 GOTO 100 c L 

110 IF Hii6 GOTO 170:IF H223 GOTO 170: V=H/2089+1 

120 OM H MOD A GOTO 140, 150, 160 ` 

150 Y=Y+V:IF Y<YMAX GOTO 170:Y=YMAX:GOTO 170 d 


140 — YzY-V:IF YO GOTO 1705 Y=O:GOTO 170 
150 X=X-V:IF Zap GOTO 170:X=0:60T0 170 
160 X=X+V:IF X«XMAX GOTO 170: X=XMAX 
170 RETURN 

300 PRINT "Move blinking dot. If inside field to color press space. 
510. GOSUB 100: IF Hi>32 GOTO 319 X=X+1 

320 X=X-1:IF SCRN(X,Y)<2G GOTO 320: X=X+1:BX=X: BY=YıF=0:60T0 60 
400 G=14:W=1:COLORG O ዘ G 15: MODE 4A:REM INITIALISATION 

410 INPUT "Standard/Own drawing "3; VES: PRINT 

420  X=33:Y=33: IF VE$="0" GOTO SOU 

450” READ F,Q:IF ዮ፥8=0 GOTO 300: DRAW P. se X,Y 22:iX=FiY=OQ:GOTO 450 
500  GOSUB 100:IF H=13 GOTO 3005 IF H+ 2 GOTO 500 
510 IF F=0 THEN DOT X,Y 22:F=1:P=X: SÉ y 

5620 DRAH X,Y P,Q 22:P-X:0-Y:G0TO 500 

900 DATA 147,12,147,45,90,45,80, 21,80, 60, 120, 70 
DATA 85,70, 75,50, 66,45,45,99, 33, 33, 0, 0 
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UNIVERSELE PC. DCE-BUS INTERFACEKAART (GICC 


Deze kaart heeft hetzelfde doel en dezelfde logische opbouw 
als de DCE-F module van DAI, met dit verschil dat bij deze 
kaart alle aansluitingen in volgorde liggen zoals bij de 
personal computer. (de industriele kaarten hebben een afwij- 
kende volgorde.) 

Het gevolg hiervan is dat deze "GICC" (General Interface 
Control Card) met een kaartadapter rechtstreeks op de DCE- 
bus van DAIpc kan worden aangesioten door middel van een 
gewone bandkabel als het een enkele kaart betreft. 

Voor het aansluiten van meerdere kaarten doen we een beroep 
op de busprint van Elektuur (EPS80024). 

Iedere busprint biedt plaats voor max 5 interface kaarten, 
terwijl meerdere busprinten plaats bieden voor max. 15 kaarten 
volledig in BASIC programmeerbaar met de OUT I,J en de 
INP(I) instructies. 

Voor de niet-ingewijden in de DCE-BUS techniek verwijzen 

we naar DAlnamic No 1 p 3,4,5 en & „ of naar "THE BEST OF 
DAInamic" p 4,5,6 en 7. 

De GICC is een eurokaart met een 64-polige DIN 41612 connector 
een volledige adresdecodering, 3 8-bits I/O poorten met 

een command register (8255A), een wrapping area van 110mm 

x 110mm en alle DCE-BUS signalen. 

Het kaartadres is door middel van 4 DIP-switches door de 
gebruiker zelf instelbaar (1 tot 15). 

Van de 64-polige DIN connector zijn er nog een aanzienlijk 
aantal lijnen onbezet, die we kunnen gebruiken om onze bus- 
structuur tussen de verschillende interfacekaarten verder 

uit te bouwen. (oa bijkomende voedingsspanningen +/- 15V) 





THE DCE-CONCEPT 


The DCE-BUS provides an easy way for the exchange of data 

and control information between the DCE-BUS of the personal 
computer and the interface card(s). 

The cards are driven by the GIC (8255) on the personal 
computer, configured to provide 8-bit input/output transfer, 
read & write signals, two external interrupts requests and 
eight address control lines for selective access to the 

cards on the bus. 

Each card is plugged into the DCE-BUS (through Elektuur 

80024 motherboard) and given a unique address via 4 dipswitches 
an the card. 

Read and Write subroutines (IN/OUT) are provided (in DAI-BASIC) 
to simplify the tranfer of data between the personal computer and the 
interface cards. 

GIC PORT 0 is used as a bidirectional data path for data 
transfer between the computer and the cards. 

GIC PORT 1 is used to specify the address of the connecting 


card. 

GIC PORT 2 issues the control signals to complete the transfer 
logic. s 

PORT © must be alternated between input and output by software 
command. 


For more information, please consult : 


".DCE MICROCOMPUTER SYSTEM DESIGNER'S HANDBOOK" 
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